home *** CD-ROM | disk | FTP | other *** search
- #!/bin/sh
- thishost=`hostname`
- if test $thishost = "megaron.arizona.edu" ; then
- emdir=/usr/emerald/ ;
- rootdir=$emdir ;
- emserverhost=megaron.arizona.edu ;
- emsite=ARIZONA ;
- elif test $thishost = "jenson" ; then
- emdir=/usr/emerald/ ;
- rootdir=$emdir ;
- emserverhost=baskerville.arizona.edu ;
- emsite=ARIZONA ;
- elif test $thishost = "zephyr" ; then
- emdir=/usr/emerald/ ;
- rootdir=$emdir ;
- emserverhost=zephyr.arizona.edu ;
- emsite=ARIZONA ;
- elif test $thishost = "baskerville" ; then
- emdir=/usr/emerald/ ;
- rootdir=$emdir ;
- emserverhost=baskerville.arizona.edu ;
- emsite=ARIZONA ;
- elif test $thishost = "taber" ; then
- emdir=/usr/emerald/ ;
- rootdir=$emdir ;
- emserverhost=taber.cs.washington.edu ;
- emsite=WASHINGTON ;
- elif test $thishost = "roar" ; then
- emdir=/usr/em/ ;
- rootdir=$emdir ;
- emserverhost=roar.diku.dk ;
- emsite=DIKU ;
- elif test $thishost = "freja.diku.dk" -o $thishost = "freja.diku.dk" ; then
- emdir=/usr/projects/emerald/ ;
- rootdir=$emdir ;
- emserverhost=freja.diku.dk ;
- emsite=DIKU ;
- elif test $thishost = "balder.diku.dk" -o $thishost = "munin.diku.dk" -o \
- $thishost = "brage.diku.dk" -o $thishost = "skirner.diku.dk" -o \
- $thishost = "idun.diku.dk" ; then
- emdir=/scratch/eric/emerald/ ;
- rootdir=$emdir ;
- emserverhost=balder.diku.dk ;
- emsite=DIKU ;
- elif test $thishost = "bjarke.diku.dk" -o $thishost = "skinfaxe.diku.dk" ; then
- emdir=/scratch/eric/emerald/ ;
- rootdir=$emdir ;
- emserverhost=bjarke.diku.dk ;
- emsite=DIKU ;
- else
- echo "Do not understand host \"$thishost\"." ;
- exit 1 ;
- fi
- thefiles=" "
- echo EMDIR is $emdir at $emsite running on $emserverhost
- cd $emdir
- refigure=0
- if test $# != 0 ; then
- if test x$1 = x"-r" ; then
- refigure=1 ;
- fi
- fi
- if test $refigure = 1 ; then
- filename=${0?"Do not know own file name"} ;
- tofix=`find . -type f \
- ! -name \*.bak \
- ! -name \*.ckp \
- ! -name core \
- ! -name \*.o \
- ! -name s.\* \
- ! -name p.\* \
- -exec egrep -s 'EMDIR|ROOTDIR|EMSERVERHOST|EMSITE' {} \; \
- -exec egrep -s '(set|#define)?[ ]*(EMDIR|ROOTDIR|EMSERVERHOST|EMSITE)[ ]*=?[ ]*["/a-zA-Z]*$' {} \; \
- -print` ;
- tofix=`echo $tofix | tr '\012' ' '`
- sed -e '/^thefiles=/s,=.*$,='\""$tofix"\", < $0 > $0.DoIt ;
- chmod +x $0.DoIt ;
- else
- for f in $thefiles ; do
- wasreadonly=0
- echo $f ;
- if test -r $f ; then
- rm -f $f.bak ;
- cp $f $f.bak ;
- if test ! -w $f ; then
- wasreadonly=1;
- chmod u+w $f;
- fi ;
- sed \
- -e '/EMDIR[ =][ =]*[\/a-zA-Z."]*$/s,[\/a-zA-Z.]*\("*\)$,'$emdir'\1', \
- -e '/ROOTDIR[ =][ =]*[\/a-zA-Z."]*$/s,[\/a-zA-Z.]*\("*\)$,'$rootdir'\1', \
- -e '/EMSERVERHOST[ =][ =]*[\/a-zA-Z."]*$/s,[\/a-zA-Z.]*\("*\)$,'$emserverhost'\1', \
- -e '/EMSITE[ =][ =]*[\/a-zA-Z."]*$/s,[\/a-zA-Z.]*\("*\)$,'$emsite'\1', \
- < $f.bak > $f ;
- if test $wasreadonly = 1 ; then
- chmod u-w $f;
- fi
- else
- echo "Can't read \"$f\"."
- fi
- done
- fi
- echo
-